home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / SPX30.ZIP / SPX_INT.ZIP / SPX_FNC.INT < prev    next >
Encoding:
Text File  |  1994-06-10  |  1.6 KB  |  52 lines
  1. Unit SPX_FNC;
  2.  
  3. {$X+,O+ }
  4. { SPX Library Version 3.0  Copyright 1994 Scott D. Ramsay }
  5.  
  6. Interface
  7.  
  8. Uses spx_obj;
  9.  
  10. type
  11.   quitProc = procedure;
  12.  
  13. function sgn(h:integer):integer;
  14. function strint(s:string):longint;
  15. function intstr(l:longint):string;
  16. function ups(s:string):string;
  17. function st(h:longint):string;
  18. function max(a,b:integer):integer;
  19. function min(a,b:integer):integer;
  20. function compare(s1,s2:string):boolean;
  21. function dtcmp(var s1,s2;size:word):boolean;
  22. function cmp(var s1,s2;size:word):boolean;
  23. function lz(i,w:longint):string;
  24. function vl(h:string):longint;
  25. function spaces(h:integer):string;
  26. function repstr(h:integer;ch:char):string;
  27. function ifix(var a:integer;min,max:integer):boolean;
  28. function rfix(var a:real;min,max:real):boolean;
  29. function anything(s:string):boolean;
  30. function exist(f:string):boolean;
  31. function errmsg(n:integer):string;
  32. function TPerror(errorcode:integer) : string;
  33. procedure funpad(var s:string);
  34. procedure unpad(var s:string);
  35. procedure munpad(var s:string;b:byte);
  36. function fpad(s:string;h:integer):string;
  37. procedure pad(var s:string;h:integer);
  38. procedure fix(var s:string;h:string);
  39. procedure fixh(var s:string);
  40. function range(x,y,x1,y1,x2,y2:integer) : boolean;
  41. function rrange(x,y,x1,y1,x2,y2:real) : boolean;
  42. function between(x,x1,x2:longint):boolean;
  43. function fspaces(s:string;skip:byte):string;
  44. function GetPtr(p:pointer;offset:longint):pointer;
  45. function sar(value:integer;shift:byte):integer;
  46. function sal(value:integer;shift:byte):integer;
  47. function ptr2hex(p:pointer):string;
  48. function word2hex(w:word):string;
  49. function byte2hex(b:byte):string;
  50. procedure atexit(proc:QuitProc);
  51.  
  52.